Const msiOpenDatabaseModeTransact = 1 

Dim msiPath 

msiPath = WScript.Arguments(0) 'MSI file from the command line 

Dim installer 

Set installer = CreateObject("WindowsInstaller.Installer") 

Dim openMode 

openMode = msiOpenDatabaseModeTransact 

Dim database 

Set database = installer.OpenDatabase(msiPath, openMode) 

Dim view 

Set view = database.OpenView("UPDATE CustomAction SET CustomAction.Type = '3622' WHERE CustomAction.Action = 'VisSolPublish_BumpVisioChangeId'") 

view.Execute 

database.Commit 

Set view = Nothing 

Set database = Nothing 

